home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro8 / gwframes.bas < prev    next >
Encoding:
BASIC Source File  |  1991-12-12  |  4.9 KB  |  169 lines
  1. 10 REM GWFRAMES.BAS BY CARMEN PAONE [72677,42]
  2. 100 KEY OFF: SCREEN 2: CLS
  3. 110 LOCATE 3,3: PRINT STRING$(30,220)
  4. 120 FOR I = 1 TO 20
  5. 130 LOCATE 3+I,3: PRINT CHR$(221)
  6. 140 NEXT
  7. 150 LOCATE 12,4: PRINT STRING$(15,220)
  8. 160 LOCATE 17,4:PRINT"rames in GWBASIC"
  9. 170 LOCATE 22,20:PRINT "PRESS ANY KEY TO SEE DIFFERENT FRAME STYLES"
  10. 180 WHILE INKEY$="": WEND
  11. 1000 CLS
  12. 1030 LINE (0,0) - (639,199),,B
  13. 1040 LOCATE 11,15
  14. 1050 PRINT STRING$(20,219)SPACE$(2)"FRAME 1"SPACE$(2)STRING$(20,219)
  15. 1060 LOCATE 15,26
  16. 1070 PRINT "PRESS ANY KEY FOR NEXT FRAME"
  17. 1080 WHILE INKEY$="": WEND
  18. 1100 CLS
  19. 1110 LINE (0,0) - (639,199),,B: LINE (2,2) -(637,197),,B
  20. 1120 LOCATE 11,15
  21. 1130 PRINT STRING$(20,219)SPACE$(2)"FRAME 2"SPACE$(2)STRING$(20,219)
  22. 1140 LOCATE 15,26
  23. 1150 PRINT "PRESS ANY KEY FOR NEXT FRAME"
  24. 1160 WHILE INKEY$="": WEND
  25. 1200 CLS
  26. 1210 LINE (0,0) - (639,199),,B: LINE (1,1) - (638,198),,B: LINE (2,2) -(637,197),,B
  27. 1220 LOCATE 11,15
  28. 1230 PRINT STRING$(20,219)SPACE$(2)"FRAME 3"SPACE$(2)STRING$(20,219)
  29. 1240 LOCATE 15,26
  30. 1250 PRINT "PRESS ANY KEY FOR NEXT FRAME"
  31. 1260 WHILE INKEY$="": WEND
  32. 1300 CLS
  33. 1310 LOCATE 1,1
  34. 1320 PRINT STRING$(80,219);
  35. 1330 LINE (0,0) - (20,199),,BF: LINE (619,0) - (639,199),,BF
  36. 1340 LOCATE 25,1
  37. 1350 PRINT STRING$(80,219);
  38. 1360 LOCATE 11,15
  39. 1370 PRINT STRING$(20,219)SPACE$(2)"FRAME 4"SPACE$(2)STRING$(20,219)
  40. 1380 LOCATE 15,26
  41. 1390 PRINT "PRESS ANY KEY FOR NEXT FRAME"
  42. 1395 WHILE INKEY$="": WEND
  43. 1400 CLS
  44. 1410 FOR X = 199 TO 0 STEP-2
  45. 1420 LINE (0+X, 0+X) - (639-X, 199-X),,B
  46. 1425 NEXT X
  47. 1430 LOCATE 11,36
  48. 1440 PRINT " FRAME 5 "
  49. 1450 LOCATE 15,26
  50. 1460 PRINT " PRESS ANY KEY FOR NEXT FRAME "
  51. 1470 WHILE INKEY$="": WEND
  52. 1500 CLS
  53. 1510 FOR X = 16 TO 0 STEP-1
  54. 1520 LINE (0+X, 0+X) - (639-X, 199-X),,B
  55. 1530 NEXT X
  56. 1540 LOCATE 11,21
  57. 1550 PRINT STRING$(15,219)SPACE$(2)"FRAME 6"SPACE$(2)STRING$(15,219)
  58. 1560 LOCATE 15,26
  59. 1570 PRINT " PRESS ANY KEY FOR NEXT FRAME "
  60. 1580 WHILE INKEY$="": WEND
  61. 1600 CLS
  62. 1610 FOR X = 57 TO 0 STEP -20
  63. 1620 LINE (0+X,0+X) - (639-X, 199-X),,B
  64. 1630 NEXT X
  65. 1640 LOCATE 11,26
  66. 1650 PRINT STRING$(10,219)SPACE$(2)"FRAME 7"SPACE$(2)STRING$(10,219)
  67. 1660 LOCATE 15,26
  68. 1670 PRINT " PRESS ANY KEY FOR NEXT FRAME "
  69. 1680 WHILE INKEY$="": WEND
  70. 1700 CLS
  71. 1710 FOR X=0 TO 199 STEP 7
  72. 1720 LINE (0+X,0+X) - (639-X, 199-X),,B
  73. 1730 NEXT X
  74. 1740 LOCATE 11,36
  75. 1750 PRINT " FRAME 8 "
  76. 1760 LOCATE 15,26
  77. 1770 PRINT " PRESS ANY KEY FOR NEXT FRAME "
  78. 1780 WHILE INKEY$="": WEND
  79. 1800 CLS
  80. 1810 FOR X = 0 TO 20 STEP 5
  81. 1820 LINE (0+X,0+X)  - (639-X,199-X),1,B
  82. 1830 NEXT X
  83. 1840 LOCATE 11,26
  84. 1850 PRINT STRING$(10,219)SPACE$(2)"FRAME 9"SPACE$(2)STRING$(10,219)
  85. 1860 LOCATE 15,26
  86. 1870 PRINT " PRESS ANY KEY FOR NEXT FRAME "
  87. 1880 WHILE INKEY$="": WEND
  88. 1900 CLS
  89. 1910 FOR L = 20 TO 40 STEP 5
  90. 1920 LINE (0+L,0+L) - (639-L, 199-L),,B
  91. 1930 NEXT L
  92. 1940 FOR X = 0 TO 20 STEP 1
  93. 1950 LINE (0+X,0+X) - (639-X, 199-X),,B
  94. 1960 NEXT X
  95. 1970 LOCATE 11,26
  96. 1975 PRINT STRING$(10,219)SPACE$(2)"FRAME 10"SPACE$(2)STRING$(10,219)
  97. 1980 LOCATE 15,26
  98. 1985 PRINT " PRESS ANY KEY FOR NEXT FRAME "
  99. 1990 WHILE INKEY$="": WEND
  100. 2000 CLS
  101. 2005 FOR W = 15 TO 0 STEP -1
  102. 2010 LINE (0+W,0+W) - (639-W,199-W),,B
  103. 2015 NEXT W
  104. 2020 FOR X = 29 TO 0 STEP -3
  105. 2025 LINE (0+X,0+X) - (639-X, 199-X),,B
  106. 2030 NEXT X
  107. 2040 FOR Y =  59 TO 0 STEP -5
  108. 2045 LINE (0+Y,0+Y) - (639-Y, 199-Y),,B
  109. 2050 NEXT Y
  110. 2060 LOCATE 11,26
  111. 2065 PRINT STRING$(10,219)SPACE$(2)"FRAME 11"SPACE$(2)STRING$(10,219)
  112. 2070 LOCATE 15,26
  113. 2080 PRINT " PRESS ANY KEY FOR NEXT FRAME "
  114. 2090 WHILE INKEY$="": WEND
  115. 3000 CLS
  116. 3010 LOCATE 1,1
  117. 3015 PRINT STRING$(160,176);
  118. 3020 LOCATE 23,1
  119. 3030 PRINT STRING$(160,176);
  120. 3040 FOR X = 10 TO 629 STEP 640
  121. 3050 LINE (10+X,10+X) -(629-X, 181-X),,B: LINE(20+X,20+X)-(619-X,171-X),,B
  122. 3060 NEXT X
  123. 3070 LOCATE 11,26
  124. 3075 PRINT STRING$(10,219)SPACE$(2)" FRAME 12 "SPACE$(2)STRING$(10,219)
  125. 3080 LOCATE 15,28
  126. 3085 PRINT "PRESS ANY KEY FOR NEXT FRAME"
  127. 3090 WHILE INKEY$="": WEND
  128. 3100 CLS
  129. 3110 FOR X = 100 TO 600 STEP 2.5
  130. 3120 LINE (0+X,0+X) - (639-X,199-X),,B
  131. 3130 NEXT X
  132. 3140 LOCATE 11,35
  133. 3150 PRINT " FRAME 13 "
  134. 3160 LOCATE 17,25
  135. 3170 PRINT "PRESS ANY KEY FOR NEXT FRAME"
  136. 3180 WHILE INKEY$="": WEND
  137. 3200 CLS
  138. 3210 FOR X=0 TO 40 STEP 1.5
  139. 3220 LINE (0+X,0+X) - (639-X, 199-X),,B
  140. 3230 NEXT X
  141. 3240 LOCATE 11,35
  142. 3250 PRINT " FRAME 14 "
  143. 3260 LOCATE 17,27
  144. 3270 PRINT "PRESS ANY KEY FOR NEXT FRAME"
  145. 3280 WHILE INKEY$="": WEND
  146. 3300 CLS
  147. 3310 FOR X= 0 TO 800 STEP 1.3
  148. 3320 LINE (X,0)-(X,199),X AND 1
  149. 3330 NEXT X
  150. 3340 FOR Y = 600 TO 45 STEP -1
  151. 3350 LINE (Y,20)- (Y,179),Y AND 2
  152. 3360 NEXT Y
  153. 3370 LOCATE 11,35
  154. 3375 PRINT  " FRAME 15 "
  155. 3380 LOCATE 17,28
  156. 3385 PRINT "PRESS ANY KEY FOR NEXT FRAME"
  157. 3390 WHILE INKEY$="": WEND
  158. 3400 CLS
  159. 3405 LOCATE 2,2,0: PRINT STRING$(78,36)
  160. 3410 FOR I = 1 TO 20
  161. 3415 LOCATE 2+I,2: PRINT CHR$(36)
  162. 3420 LOCATE 2+I,79: PRINT CHR$(36)
  163. 3425 NEXT
  164. 3430 LOCATE 23,2,0:PRINT STRING$(78,36)
  165. 3440 LOCATE 11,35: PRINT "FRAME 16"
  166. 3450 LOCATE 17,28:PRINT "PRESS ANY KEY TO END PROGRAM"
  167. 3460 WHILE INKEY$="": WEND
  168. 3470 CLS:SYSTEM
  169.